home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / 1670BE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.4 KB  |  284 lines
  1. 10 REM ********************************
  2. 20 REM *                              *
  3. 30 REM *    BEEPER DIALER VER 1.5     *
  4. 40 REM *                              *
  5. 50 REM *       MATTHEW HOFFMAN        *
  6. 55 REM *         70611,3110           *
  7. 57 REM *                              *
  8. 60 REM *           5/16/88            *
  9. 70 REM *                              *
  10. 80 REM ********************************
  11. 81 REM *                              *
  12. 82 REM *    BEEPER DIALER VER 2.0     *
  13. 83 REM *                              *
  14. 84 REM *    REVISED BY  BOB BOXER     *
  15. 85 REM *         73320,1415           *
  16. 86 REM *                              *
  17. 87 REM *   FOR USE WITH 1670 MODEM    *
  18. 88 REM *                              *
  19. 89 REM *           9/22/88            *
  20. 90 REM *                              *
  21. 91 REM ********************************
  22. 92 REM
  23. 100 REM
  24. 110 REM        INITIALIZE
  25. 120 REM
  26. 125 OPEN 2,2,2,CHR$(8)
  27. 127 PRINT#2,"ATS0=0"
  28. 130 POKE 53280,0:POKE53281,0
  29. 135 DD=840:REM 14 SEC. DIALING ALLOWANCE
  30. 140 CC=1
  31. 150 CD$=""
  32. 155 ZZ$(0)=" - PAGER ENABLED "
  33. 156 ZZ$(1)=" - PAGER DISABLED"
  34. 160 GOSUB 1580
  35. 170 GOSUB 1960
  36. 180 GOSUB 1240
  37. 200 REM
  38. 210 REM        GET DATA
  39. 220 REM
  40. 230 REM
  41. 240 PRINT CHR$(147)TAB(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][146]"
  42. 250 PRINT TAB(13)" BEEPER DIALER [146]"
  43. 260 PRINTTAB(7)"ENTER NEW # [150] <Q> TO QUIT"
  44. 270 PRINTTAB(10)"[159]<RETURN> IF CORRECT"
  45. 280 PRINT CHR$(19)TAB(25)"[156]"BP$
  46. 290 INPUT "[145]BEEPER PHONE # ";N$
  47. 300 IF LEFT$(N$,1)="Q"THEN SYS65409:END:    REM KERNAL CINT ROUTINE
  48. 310 PRINT CHR$(19)TAB(25)"[156]"RT$
  49. 320 INPUT "[145]RETURN PHONE # ";NR$
  50. 330 IF LEFT$(NR$,1)="Q"THEN SYS65409:END:    REM KERNAL CINT ROUTINE
  51. 340 IFN$=BP$ANDNR$=RT$THEN360
  52. 350 BP$=N$:RT$=NR$:AF=1
  53. 360 IFAF=1THENGOSUB2100
  54. 370 GOSUB 1420
  55. 380 REM
  56. 390 REM        MAIN LOOP
  57. 400 REM
  58. 410 PRINT""LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2);ZZ$(ZZ)
  59. 420 IF(PEEK(56577)AND8)=0 THEN 450:REM WAIT FOR RING
  60. 430 IF PEEK(197)=22 THEN IF PEEK(653)=4 THEN450
  61. 435 IF PEEK(197)=3 THEN IF PEEK(653)=1 THEN GOSUB 9000
  62. 440 GOTO 410
  63. 450 IF CF=0 THEN CF=1:GOSUB 1420:PRINT"[145][145]";:RC=CC+1
  64. 460 GOSUB 1490
  65. 470 BG=INT(TI/60)
  66. 480 PRINT""LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2); ZZ$(ZZ)
  67. 490 IF FT=0THEN FT=1:ED=BG+AD:REM AD=TIME DELAY(# OF SECONDS)
  68. 500 IF BG=ED THEN 520
  69. 510 GOTO 470
  70. 520 CC=CC+1:FT=0:REM CALL COUNT
  71. 530 DN$=BP$
  72. 535 GOSUB 10000:REM MOD FOR 1670 MODEM
  73. 537 GOTO 410:REM GO BACK & WAIT FOR ANOTHER CALL
  74. 1230 REM
  75. 1240 REM        SET TIME
  76. 1250 REM
  77. 1260 PRINT"[147][154]CURRENT TIME: ";
  78. 1270 PRINT LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2)
  79. 1280 PRINT"NO COLONS---> HHMMSS"
  80. 1290 PRINT"<RETURN> IF CORRECT"
  81. 1300 INPUT"[145][145][145][145][145]ENTER TIME :";NT$
  82. 1310 IF NT$=""THEN PRINT"[147]":GOTO1330
  83. 1320 TI$=NT$
  84. 1330 PRINT"[150]ANSWER TIME DELAY: ";AD
  85. 1340 PRINT"<RETURN> IF CORRECT"
  86. 1350 INPUT"[145][145][145][145][145]";ND
  87. 1360 PRINT"[150]BEEPER ANSWER DELAY: ";BA
  88. 1370 PRINT"<RETURN> IF CORRECT"
  89. 1380 INPUT"[145][145][145][145][145]";NB
  90. 1390 IFND=AD AND NB=BA THEN RETURN
  91. 1400 AD=ND:BA=NB:AF=1
  92. 1410 RETURN
  93. 1420 REM        SET UP SCREEN
  94. 1430 REM
  95. 1440 PRINT CHR$(147)TAB(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][146]"
  96. 1450 PRINT TAB(13)" BEEPER DIALER [146]"
  97. 1460 IF CF=0 THEN GOSUB 1820
  98. 1470 RETURN
  99. 1480 REM
  100. 1490 REM        PRINT CALL LOG
  101. 1500 REM
  102. 1505 IF CC=2 THEN RC=RC+1
  103. 1510 IF CC>20THENPRINT"";TAB(20):RC=CC-17
  104. 1520 PRINTLEFT$(CD$,RC);
  105. 1530 FT$=LEFT$(TI$,2)+":"+MID$(TI$,3,2)
  106. 1540 PRINT"[156]CALL";:IF CC<10 THEN PRINT " ";
  107. 1542 PRINT CC"--> "FT$
  108. 1550 RC=RC+1
  109. 1560 RETURN
  110. 1570 REM
  111. 1580 REM        TITLE SCREEN
  112. 1590 REM
  113. 1600 PRINT"[147][154]"TAB(15)"[213][192][192][192][192][192][192][185][185][146][201]"
  114. 1610 PRINT TAB(15)"[221]        [221]"
  115. 1620 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  116. 1630 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  117. 1640 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  118. 1650 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  119. 1660 PRINT TAB(15)"[221][166]       [221]"
  120. 1670 PRINT TAB(15)"[221][166][156] BEEPER[154][221]"
  121. 1680 PRINT TAB(15)"[221] [156] DIALER[154][221]"
  122. 1690 PRINT TAB(15)"[202][192][192][192][192][192][192][192][192][203]"
  123. 1700 PRINTTAB(11)"[153] MATTHEW HOFFMAN "
  124. 1720 PRINTTAB(11)"   APRIL 1988  "
  125. 1721 PRINTTAB(17)"[158]* * *
  126. 1722 [153][163]9)"PRINT ADAPTED BY BOB BOXER "
  127. 1723 [153][163]1)" FOR USE WITH HAYES-COMPATABLE MODEMS "
  128. 1724 [153][163]12)" SEPTEMBER 1988 "
  129. 1730 [153]"OPEN----------------------------------------";
  130. 1740 [153]"DEFTO                   PRINTTO"
  131. 1750 [153]"DEFTHENIWAITFN - INSTRUCTIONSPRINTTHENBWAITFN - BEGIN"
  132. 1760 [161]S$:[139]S$[178]""[167] 1760
  133. 1770 [139] S$[178]"B"[167] [137] 1800
  134. 1780 [139] S$[178]"I"[167] [141] 2350:[137]1600
  135. 1790 [137]1760
  136. 1800 [142]
  137. 1810 [143]
  138. 1820 [143]     FIRST SCREEN - NO CALLS
  139. 1830 [143]
  140. 1840 [153]"CLR"
  141. 1850 [153][163]11)"  (null)TANTANTANTANLENLENTANLENLENTANTANTANTANRIGHT$
  142. 1860 PRINTTAB(11)" [213][179]  [213][195][195][195][195][195][195][195][201]  [194]
  143. 1870 [153][163]11)"(null)(null)MID$STR$STR$(null)       MID$STR$STR$(null)
  144. 1880 PRINTTAB(11)"[221]   [206]  1 2 3  [205]
  145. 1890 [153][163]11)"MID$RIGHT$  SGN  4 5 6  +
  146. 1900 PRINTTAB(11)" [202][201] [180]  7 8 9  [170]
  147. 1910 [153][163]11)"  MID$LENSGN  * 0 #  +
  148. 1920 PRINTTAB(11)"    [205][175][175][175][175][175][175][175][175][175][206]
  149. 1930 [153][163]5)"OPEN    YOU HAVE HAD NO CALLS..."
  150. 1940 [142]
  151. 1950 [143]
  152. 1960 [143]        READ DATA
  153. 1970 [143]
  154. 1980 [153]"ONON                                       "
  155. 1990 [153]"                                       "
  156. 2000 [153]"ON    PLEASE WAIT, LOADING DATA..."
  157. 2010 [159] 15,8,15,"I0"
  158. 2020 [159] 5,8,5,"TEL.DATA,S,R"
  159. 2030 [141] 2240
  160. 2040 [139] [197](A$)[177]0[167] [142]
  161. 2050 [132]5,BP$,RT$,AD,BA
  162. 2060 [160] 5
  163. 2070 [160]15
  164. 2080 [142]
  165. 2090 [143]
  166. 2100 [143]        WRITE DATA
  167. 2110 [143]
  168. 2120 [129]E[178]0[164]5:[153]"                                       ":[130]
  169. 2130 [153][163]7)"DEFPLEASE WAIT, SAVING DATA..."
  170. 2140 Z$[178]","
  171. 2150 [159] 5,8,5,"@0:TEL.DATA,S,W"
  172. 2160 [159] 15,8,15
  173. 2170 [141] 2240
  174. 2180 [139] [197](A$)[177]0[167] [142]
  175. 2190 [152]5,BP$;Z$;RT$;Z$;AD;Z$;BA
  176. 2200 [160]5
  177. 2210 [160]15
  178. 2220 [142]
  179. 2230 [143]
  180. 2240 [143]        I/O ERROR CHECK
  181. 2250 [143]
  182. 2260 [132]15,A$,B$,C$,D$
  183. 2270 [139] [197](A$)[178]0 [167] [142]
  184. 2280 [153]A$;B$;" TRACK:"C$" SECTOR:"D$
  185. 2290 [160] 5
  186. 2300 [160]15
  187. 2310 [153]"     ANY KEY TO CONTINUE . . ."
  188. 2320 [146]197,64,64
  189. 2330 [142]
  190. 2340 [143]
  191. 2350 [143]        INSTRUCTIONS
  192. 2360 [143]
  193. 2370 [143]
  194. 2380 [153]"LOAD"[199](14);
  195. 2390 [153][163]8)"CONTPEEKEEPER STR$IALER RIGHT$NSTRUCTIONSPRINT":[153]
  196. 2400 [153]"     (null)HIS PROGRAM WAS WRITTEN TO BE USEDWITH A LENOMMODORE 1660 MODEM";
  197. 2410 [153]", A DIGITAL  BEEPER AND AN ANSWERING MACHINE.";
  198. 2420 [153]" RIGHT$T WILLLOG YOUR CALLS, ALLOW YOUR ANSWERING    MACHINE TO RECORD";
  199. 2430 [153]" AND THEN BEEP YOUR    BEEPER.":[153]
  200. 2440 [153]"    (null)THER USES COULD BE AS SIMPLE AS A  CALL LOG OR AS COMPLICATED";
  201. 2450 [153]" AS A BURGLAR ALARM WHICH SOULD BEEP YOU IN THE EVENT OF A";
  202. 2460 [153]" BREAK-IN. ":[153]
  203. 2470 [153]"     ATNS IS,THIS IS WHAT IT DOES.  (null)HEN ACALL COMES IN, THE COMPUTER ";
  204. 2480 [153]"LOGS THE    TIME AND CALL NUMBER.  RIGHT$T THEN WAITS AN ADJUSTABLE ";
  205. 2490 [153]"PERIOD OF TIME TO ALLOW AN   ANSWERING MACHINE TO RECORD A MESSAGE.";
  206. 2500 [153]"  RIGHT$T THEN PROCEEDS TO DIAL YOUR BEEPER    NUMBER AND ENTERS YOUR ";
  207. 2510 [153] "RETURN NUMBER SO IT WILL APPEAR IN YOUR BEEPER. "
  208. 2520 [141] 2780
  209. 2530 [153]"     (null)HEN THE PROGRAM IS FIRST RUN IT   WILL TRY TO LOAD A FILE ";
  210. 2540 [153]"CALLED 'TEL.DATA', WHICH STORES THE PHONE NUMBERS AND   TIME DELAYS ";
  211. 2550 [153]"NEEDED.  (null)N THE FIRST RUN ITWILL NOT BE ABLE TO FIND THIS FILE, ";
  212. 2560 [153]"SO A'FILE NOT FOUND' ERROR WILL OCCUR.      MID$UST HIT A KEY TO ";
  213. 2570 [153]"CONTINUE AND ENTER THEDATA AS PROMPTED.  "
  214. 2580 [153]:[153]"     RIGHT$N ORDER TO FUNCTION CORRECTLY A   FEW THINGS NEED TO BE ";
  215. 2590 [153]"DETERMINED.       ASCIRST, TIME YOUR ANSWERING MACHINE TO   SEE HOW LO";
  216. 2600 [153]"NG IT TAKES TO GO THROUGH IT'SCYCLE. (null)OU MUST TIME FROM WHEN THE ";
  217. 2610 [153]"PHONEFIRST RINGS UNTIL IT IS FINISHED RECORD-ING AND HANGS UP.  ";
  218. 2620 [153]"(null)INE TAKES 2 MINUTES.RIGHT$F IT IS A (null)(null)(null) OPERATED MESSAGE THEN    JUST ";
  219. 2630 [153]"ALLOW FOR A NORMAL MESSAGE.  (null)HIS  VALUE, EXPRESSED IN SECONDS, ";
  220. 2640 [153]"SHOULD BE  ENTERED AS THE ANSWER TIME DELAY.  ":[153]
  221. 2650 [141] 2780
  222. 2660 [153]"     (null)EXT CALL YOUR BEEPER NUMBER AND   TIME HOW LONG IT TAKES TO ";
  223. 2670 [153]"ANSWER AND    GIVE YOU THE TONES INDICATING WHEN TO   ENTER THE ";
  224. 2680 [153]" RETURN NUMBER.  ";
  225. 2690 [153]"(null)HIS SHOULD  BE ENTERED AS THE BEEPER ANSWER DELAY,  IN SECONDS."
  226. 2700 [153]:[153]"     (null)HAT'S ALL THERE IS TO IT!  RIGHT$T MAY TAKE A LITTLE ";
  227. 2710 [153]"FOOLING AROUND TO GET THE TIMING RIGHT, BUT IT SHOULDN'T BE TOO ";
  228. 2720 [153]"  HARD.  (null)O TEST JUST PRESS LENONTROL-(null) OR  HAVE SOMEONE CALL YOU.  "
  229. 2730 [153]:[153]:[153] [163]20);"LEFT$AVE ASCUN,"
  230. 2740 [153]:[153] [163]22);"(null)ATT"
  231. 2750 [153]:[153]:[153]:[141] 2780
  232. 2755 [141] 11000:[143]
  233. 2760 [153][199](142):[142]
  234. 2770 [128]
  235. 2780 [153]"DEF           ANY KEY TO CONTINUE...PRINT";
  236. 2790 [146] 197,64,64
  237. 2800 [153]"LOAD";
  238. 2810 [142]
  239. 9000 [143] *** ENABLE/DISABLE TOGGLE ***
  240. 9005 [139] ZZ[178]1 [167] ZZ[178]0:[137] 9020
  241. 9010 ZZ[178]1
  242. 9020 [142]
  243. 10000 [143] *** 1670 MODEM OPERATION ***
  244. 10005 [139]ZZ[178]1 [167] 10125:[143] DISABLED
  245. 10010 [152]2, "ATDT"[170]BP$;
  246. 10012 [129] AL[178]0 [164] [181](BA[173]2):[152]2,",";:[130]
  247. 10014 [152]2, RT$
  248. 10015 DW[178]TI[170]DD[170](BA[172]60)
  249. 10016 [139] TI[179]DW [167] 10016
  250. 10025 [152]2, "+++";
  251. 10030 [129] BL[178]1 [164] 1000:[130]
  252. 10125 [142]
  253. 10999 [143]
  254. 11000 [143] * ADDITIONAL PROGRAM NOTES *
  255. 11005 [143] *       BY BOB BOXER       *
  256. 11010 [153] "(null)HIS VERSION OF (null)ATT'S PROGRAM PERMITS"
  257. 11015 [153] "USE OF A LENOMMODORE 1670 OR OTHER MODEM"
  258. 11020 [153] "RECOGNIZING THE LEFT$AYES COMMAND SET."
  259. 11030 [153]
  260. 11035 [153] "(null)HE 1670 USES A COMMA TO INSERT A TWO"
  261. 11040 [153] "SECOND PAUSE IN THE DIALING SEQUENCE."
  262. 11045 [153] "ATN SERIES OF COMMAS IS USED TO CREATE"
  263. 11050 [153]"THE DELAY BETWEEN DIALING THE PAGER"
  264. 11055 [153]"AND ENTERING THE RETURN NUMBER. RIGHT$F"
  265. 11060 [153]"YOUR MODEM USES A DIFFERENT CHARACTER"
  266. 11065 [153]"TO CREATE A TWO SECOND PAUSE, THEN"
  267. 11070 [153] "UPDATE PROGRAM LINE 10012.
  268. 11075 PRINT
  269. 11080 PRINT "[212]HE 1670 [200]ANG-UP STRING IS ";CHR$(34);"+++";CHR$(34);". [201]F"
  270. 11085 PRINT "YOUR MODEM USES A DIFFERENT [200]ANG-UP"
  271. 11090 PRINT "STRING, THEN UPDATE PROGRAM LINE 10025."
  272. 11092 PRINT ""
  273. 11095 GOSUB 2780
  274. 11100 PRINT "[212]HIS VERSION ALSO ALLOWS YOU TO TOGGLE"
  275. 11105 PRINT "THE PAGER-CALLING PORTION OF THE"
  276. 11110 PRINT "PROGRAM ON AND OFF. [197]VEN WITH THE"
  277. 11115 PRINT "PAGER DISABLED, INCOMING CALLS WILL BE"
  278. 11120 PRINT "LOGGED ON-SCREEN. [208]RESSING <F-8>"
  279. 11125 PRINT "TOGGLES THE PAGER."
  280. 11127 PRINT "[194]OB"
  281. 11130 PRINT ""
  282. 11135 GOSUB 2780
  283. 11140 RETURN
  284.